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HIRT) a CRT TS ITT eC PR 39e 4) 


LI = Execute CLI commands’ 
I ¢ ! Execute CLI commands 
= 'v04-000' ' File: LIBEXECLI. B32 


BEGIN 


See eR eee AERA AREA ATETA AAA TAA Tee eee eee Ae eee eee e tere 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


x 
® 
® 
® 
4 ® 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
is VIN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
& 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. e 
® 
® 
® 
® 
® 
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t® DIGITAL ASSUMES NO RESPONS 
!® SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H 1S NOT SUPPLIED BY DIGITAL. 
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i FACILITY: General Utility Library 
i ABSTRACT: 


polo lolololq) 


WAN 


A procedure to execute arbitrary CLI commands when called 
from a program. 


Oooo 


i ENVIRONMENT: Runs at any access mode - AST reentrant 
i AUTHOR: Len Kawell, CREATION DATE: 21-May-1979 
i MODIFIED BY: 


' 

' 

' 

' 

' 

' 

i 

' 

' 

' 

' 

' 

' : 

: 3-005 MmHB0078 Mark H. Bramhall 4-Nov-1981 
; Remove the usage of ASTs so that the routine will correctly 
function with ASTs inhibited. 

' 
' 
' 
' 
' 
' 
J 
' 
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' 3-004  SBL0004 Steve Lionel 14-Sept-1981 

Make cote . ree with comments as to the restriction on the 
length gt t e command Line. Comments said 256 but code 
said 13 Change code to read 


LMK0003 Len Kawell 10-Mar-1981 
Create subprocess with base prsersty oF of meeter process. Also 
change termination mailbox status chec 
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3 8 H 1 ! 3-002 = LMK0002 Len K 18-January-1981 

3 9 1 / Fix to onl SDELPRC. ¥¢! process was created successfully and correctly 
3 ¢ re ! return status to the ca 

; 66 606 1 ' 3-001 = $BL3001 Steven B. Lionel 16-January-1980 

3; 6 0063 1! Make code PIC. Make PSECT names conform to LIB$ standards. Allow 

; 664 0064 1} arguments to be omitted by reference. Use authorized privs only 

:. & 0065 1} when ecopting subprocess. Send a final $ to force EOF. Restrict 

; & 0066 1 / command lengths to 256 bytes. 

; #6Of 0067 1 i- 

; 0068 1 
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MODE (WORD_R 
MODE (WORD"R 


G_ 
G. 


! System symbols 


' Execute CLI commands 

! Exit handler 

} pstis escape 

! Maximum logical name size 
R 
R 


! Check routine status 


on oe 


EAVE MAIN_BLOCK WITH .STATUS; 
T 
T 


EAD, NOWR 
EAD, NOWR 


EMAINING); 


R 
L_ STATUS; 
TUS = (ZR 
F NOT .STATUS THEN L 
E 
E 


LOGNAM_SIZ 
ul 
LI 


NONE 


NONE 
TABLE OF CONTENTS: 


SWITCHES: 
LIBSEXECUTE CLI 
EXIT_HANDLE 

INCLUDE FILES: 

EQUATED SYMBOLS: 

ESC 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
LINKAGES: 


SBTTL ‘Declarations’ 
FORWARD ROUTINE 
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XECUTE_CLI LIBSEXECUTE_CLI = Execute CLI commands 
Declarations 


' 

OWN STORAGE: 
NONE 
1 
J 


i EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
LIBSFREE_EF; 
EXTERNAL ALTERAL 


LIB$_INS 
tis” INVARG: 


pa19Be 19:84:35 


Allocates event fla 
Deallocates event f 


Condition value symbols 
Insufficient event flags 
Invalid argument 
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- % - Execute commands -Sep- 254: . -B832; 
VOe 500 LIBSEXECUTE et] E te CLI d 14S 198 % §2 $3 VMSLIB SRCILIBEXECLI B32;1 (3) 
> «6145 143 1 XSBTTL ah OPERE CUTE CLI = Execute CLI commands’ : 
3 148 144 1 GLOBAL ROUTINE ‘to EXECUTE_CLI (¢ ! Execute CLI commands : 
s 94 145 1 COMMAND ! One or more command strings ; 
: Pe | 179 1 ds 3 
; (14 147 1 $ 
3; 159 148 1 44 3 
$ 12 138 : FUNCTIONAL DESCRIPTION: ; 
3 188 134 1! LIBSEXECUTE_CLI creates a quagrecess to execute a CLI command : 
: 154 8126 1! or commands. To do this it ret creates two mailboxes, one 3 
> aa 0153 1! to be used as the subprocess's input device, and one to receive 3 
3 126 154 1! the subprocess's termination status. This routine then eressee ; 
Ss +) the subprocess running SYSSSYSTEM:LOGINOUT.EXE. This will ; 
s 138 1 § 1! initiate the eppropr tate command interpreter reading commands 3 
; 12 Bi 2f ! from the input mailbox. . 
: «(Yel 0159 1! When the subprocess terminates, the termination status will : 
3 106 the } ! be placed in the termination mailbox and returned to the caller. : 
; 18 B 186 1! ; 
; 122 Bier } } CALLING SEQUENCE: . 
; H+ H4 Bie? ' } ret_status.wlc.v = LIBSEXECUTE_CLI (commandi.rt.dx C, commandn,rt.dx...J) : 
3; «6169 0167 1 ! FORMAL PARAMETERS: : 
; 170 0168 1! : : 
s 71 0169 1! command! = commandn - Addresses of string descriptors containing 3 
3 \7¢ ive 644 command Line text. F 
; 7 hee 3 
: 174 172 1°! IMPLICIT INPUTS: g 
: 12? 0173 1! 3 
; #4176 0174 1! NONE : 
s Wr 0175 1! 3 
: «4178 Bi78 1 ! IMPLICIT OUTPUTS: 3 
3: 179 177 1! ; 
; 180 0178 1! NONE : 
: «181 0179 1! : 
: 136 3ia0 1 ! COMPLETION STATUS: : 
; 18 181 1! : 
3; «(184 BiS¢ 1! SS$_NORMAL Normal successful completion 3 
; «185 O18 1! LIBS_INVARG Invalid argument 3 
; «186 4 4 1! LIBS_INSEF Insufficient event flags : 
; «6187 185 1! xyz System service failure : 
: 133 1 $ 1! 3 
; 189 1 1 ! SIDE EFFECTS: : 
; 190 188 1! 3 
: 6191 189 1! NONE : 
; 136 190 1! 3 
3; «19 191 1 !e- 3 
3: 6194 136 1 
; Hb 137 BEGIN 
: 199 195 ILTIN 
3; 6198 138 ACTUALCOUNT ' Count of parameters 
: 199 19 ACTUALPARAME TER; i Parameter address 
3 $30 198 LOCAL 
: 201 199 OUTPUT_DESC : VECTORE2), ! Output logical name descriptor 


1 


GETPRIBLO) = 4 OR (JPIS$_PRIB * 16); 
GETPRIBC1 : 
GETPRIBL2 A 


= PRIB 
= GETPRIBC3 
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VOe~500 LIBSEXECUTE_CLI = Execute CLI commands 1 ~ep-19 4 96:92:38 VMSLIB.SRC (igeXeeL1 64251 ° (3) 

; 9 0 OUTPUTBUF : VECTORCLOGNAM_SIZ,BYTEJ, ! Qutput bogical name buffer ; 
; 20 1 OUTPUTBUF _DESC : VECTORL2J, ! Output logical name buffer desc ; 
; 204 ¢ EFN_MASK : VECTORLIJ, ! Command/Termination EFN mask : 
; 205 CMDMBXCHAN : VECTORL1,WORD] ' Command mailbox channel : 
: 206 04 CMDMBXNAMBUF VECTORCLOGNAM_S1Z,BYTE, ! Command mailbox name buffer ; 
; 207 5 CMDMBXNAM_DESC VECTOR 2), ! Command mailbox name desc ; 
; 208 Be CMDMBXEF : VECTORCIJ, ! Command mailbox event flag number ; 
; 209 0 CMDMBXI0SB WaEtoR . ! Termination mailbox I0SB ; 
; 210 08 TRMMBXCH : VECTORL1,WORD?, ! Termination mailbox channel ; 
: 211 09 TRMMBXE : VECTOR i. ! Termination mailbox event flag number ; 
; \¢ 0210 TRMMBXIOSB : VECTOR ! Termination mailbox I0SB ; 
: 21 0 11 TRMMSGBUF : BLOCKLACCSK_TERMLEN Byte) i Termination message buffer ; 
: 214 ig CHARBUF : BLOCKCDIBSK“LENGTH+16,BYTEJ, ! Characteristics buffer : 
s 215 021 CHARBUF _DESC VECTORG2), ' Characteristics buffer desc ; 
; 216 0214 FAOSTR_BESC : VECTOR(2), ! FAO control string descriptor 3 
Se ibe 9 15 IMAGE _BESC : VECTORE2), ! Descriptor for image name ; 
; 218 16 PRVMSR : VECTORC2), ! Permanent process privileges : 
: 219 0217 GETPRIB : VECTORL4], ! Get process priority List : 
; 220 8518 PRIB : LONG ! Process priority 3 
> 221 0219 EXITSTATUS : VeCTORE I], i Image exit status : 
; $s6 osse EXITBLOCK : VECTOR(S); ! Exit control block : 
; $57 bess REGISTER : 
3 €e9 0 § STATUS 3 ! Routine call status ; 
3 558 0224 3 
B ger 0225 BIND $ 
; $56 bs58 SUBP ID = EXITBLOCK(4); ! Subprocess ID 3 
3 ae 2 3 
; $39 8sSe LABEL 3 
; 231 0 $9 MAIN_BLOCK; ! Name of main block : 
BEE 7 
> 234 O58§ ! Zero mailbox channels and event flag numbers, and the subprocess 3 
3; 235 0233 2 ! ID so we can unconditionally deassign, deallocate, and delete them F 
3 $38 Osze § } in case of a failure in the middle of execution. : 
; $35 OS39 TRMMBX CHAN = CMDMBXCHAN = TRMMBXEFN = CMDMBXEFN = SUBPID = 0; : 
; 240 bs36 ! Main block of code in routine F 
; 241 8 9 ! ; 
3 $76 0240 STATUS = ; 
; 24 8 41 MAIN_BLOCK: 3 
3 44 rX} BEGIN : 
: 245 8 4 3 
3; 246 44 ‘ : 
3 247 0245 ' Get current process's base priority. 3 
: 248 aseg ! 3 
3 249 4 : 
5 0 4 : 
3 ; 4 3 
: 4 : 
; ; é 
3; 258 : 


POPSPUNSPININPINIPYNININININYNY 


5 

5 § PRIB J = 0; 

2 20 CKSTATUS ( ETJPI (ITMLST=GETPRIB)); 

2 i Get translation of current SYSSOUTPUT Logical name 

5 7 OUTPUTBUF _DESC 9] = LOGNAM SIZ; ! Initialize output 

5 $22 OUTPUTBUF DESe 1] = OUTPUTBUF; ' Logical name buffer desc 
56 OUTPUT _DESC = XCHARCOUNT ('SYSSOUTPUT'); |! Name to translate 


M1 
Evel = Execute ELI connands VeSepm19be 19:80:95 Wmscie- see Si Tbenect1-682;1 


<- 
= 


BSEXECU 
BSEXECU 


28 EETPUS PEO C1] = UPLIT BYTE ('SYSSOUTPUT'); ; 
61 BEGIN ; 
o¢ P STATUS = STRNLOG(LOGNAM=OUTPUT_DESC, ! Translate name : 
6 P RSLLEN=OUTPUT ~DESCLO) ; 
64 RSLBUF =OUTPUTBUF _DESCS; ; 
65 OUTPUT _DESCC1) = OUTPUTBUF; '"Set pointer to translation ; 
66 IF (. OOTPUTBUF £0] EQLU FSC) AND | If mame is RMS process ; 
67 (.OUTPUTBUFC1J EQLU 0) ! permanent file name 5 
68 HEN dine i strip escape and IFf ; 
70 SUT UT DEStEO) = OUT eur pe sctoy - 4; 

pone rene 1] = .OUTPUT_DESC + 4; 


END 
UNTIL_NOT .STATUS OR (.STATUS EQLU SS$_NOTRAN) ; 
IF «STATUS NEQU SS$_NOTRAN THEN LEAVE MAIN_BLOCK WITH .STATUS; 


Create the command mailbox and get its name 


CKSTATUS ($CREMBX (CHAN=CMDMBXCHAN, 
MAXMSG=2 ; 


CHARBUF _DESCEO) = DIBS$K_LENGTH + 16; 
CHARBUF DESC 1] = CHARBOF; 
CKSTATUS ($GETCHN(CHAN=. CMOMBXCHA 


' Create mailbox 

! Initialize characteristics 
! buffer descr ptr 

! Get mailbox characteristics 


Initialize mailbox name 


=, HAN 
PRIBUF=CHARBUF_DESC)); 
CHDMBXNAM_D A : 


fo} = LOGN ; 
DMBXNAM_D 1]_= CMDMBXRAMBUF 


ESC 

FSC H ! buffer descriptor 
co) = XZCHARCOUNT ('_'AC!UW:"); 
AO( 


4 
4 
4 
4 
4 
4 
5 
4 
: 
: DESC 7 ! Device name format 
; FAOSTR_ DESC = UPLIT BYTE CO LTACI UW"); 
(SF ! Format mailbox name 
FAOSTR_DESC ! Control string descriptor 
CMDMBXNAM_DESC, i output Length address 
CMDMBXNAM_DESC, ' output buffer desc address 
(. CHARBUFCDIBSW_DEVNAMOFF] + 
. CHARBUF COIBSW 


HARBUF ), 
ONITI)); 


Create the termination mailbox and get its number 


CKSTATUS ($CREMBX (CHAN=TRMMBXCHAN) ); 
CKSTATUS ($GETCHN(CHAN=. TRMMBX CHAN 
PRIBUF =CHARBUF _DESC)); 


i Declare an exit handler to delete the subprocess if we (the 
' creator) are rundown. 


MEUM OVONOAULS WN 0 OONOUS win — 


POPIPOPIPIPIPIPIPININININININONY PP NPPyPonyuny»d 


' Create the mailbox 
' Get its characteristics 


ARWW—OOR NEAR 


XITBLOCK(1) = Gxt LER; Set exit handler address 
oe ests § = 2; 


ITBLOCKE3] = EXITSTATUS; 
KSTATUS ($DCLEXH(DESBLK=EXITBLOCK)); 


Create the euborecens running the LOGIN image. LOGIN will 
! initiate a command interpreter to read and execute the commands 
we'll write in the command mailbox. 


CKSTATUS ($SETPRV(PRVPRV=PRVMSK, 


1 
' Set argument count 

' Set address to store 
' exit status 

! Declare exit handler 


WWWIWAIAIA AAI AAA AWAD 


2 at OOO 


! Get process's permanent 


N A. 
E_CLI = Execute CLI commands a Sep- 138 
E_CLI = Execute CLI commands Sep-1 


LP ER CUTE CLE 


Qo 
cc 


5: AX-11 Bliss-32 V4.0-74 Pa 8 
9:92:58 = NsLie sreiisexecer 692; * 2 
viteges; don't use image's 


; | Image to run 
OUT’); 


mn 


RMFLG=1)); 
CHAREGUNT (' 


22-- —-o 


vuvvUUvUUU,U 


BASPRI=.PRIB 
PIDADR=SUBP16)); 


Allocate the termination EFN and the command EFN. We need the 
EFNs to be in the same 32 bit group so that we can form an EFN 
he for SWFLOR. 


Set OO oe oe ee eee 


CKSTATUS (LIBSGET EF (T oat dol HL ! Allocate termination event flag 
ep gee BSGET ma ff agd gg fF i Allocate command event flag 
Fege tee MBXEFN /~32) (.CMDMBXEFN / 32) 


pesie ! A 3rd GET_EF should find same group 


TMPMBXEFN : VEE TORL1); 
CRT TUS CL Osee Lt (TMPMBXEFN)); 
Pi bade FCTR RNBXEFN): 
TRMMB Mie 1; XEFN 
IF (, TRNBXEN / 32) Néo (.CMDMBXEFN / 32) 


LEAVE MAIN_BLOCK WITH LIBS_INSEF; 


END; 
EFN_MASK = (1 * (,.TRMMBXEFN AND (32 = 1))) OR 
; (1 * (.CMDMBXEFN AND (32 = 1))); 


i Issue a Q10 request to read the termination mailbox specifying 
i the termination EFN. If the EFN gets set, then subprocess died 
: and we have to give up. 


CKSTATUS( S010( CHAN; TRMMBXCHAN, ! Issue read Q10 request 


vuvvUU 


MMS 
P2=ACCSK_ TERMLEN)); 


Write the specified command strings to the command mailbox 
so the subprocess can execute them. 


INCR PARAM FROM 1 TO ACTUALCOUNT() 
IF ACTUALPARAMETER(.PARAM) NEQ 0 
THEN 
BEGIN 
i * check command string for invalid Length. 


Ome eee eee 
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voee 600 LIBSEXECUTE_CLI = Execute CLI commands 730071382 96: §2: $3 VMSLIB’S SREIL IBEXECLI.B52;1 . (3) 

: t a : if » (ACTUALPARAMETER(.PARAM))<0,16> GTRU 256 : 
; fe i ; LEAVE MAIN_BLOCK WITH LIBS_INVARG; : 
Or P0375 4 CKSTATUS($Q10( CHAN=. ted ge ! Write command to mailbox ; 
; 378 P 6 4 ae BXE ‘ 
; 379 P0377 4 UNC= (os WRITELBLK, : 
; 380 P 0378 4 1osb= CMDABXIOS . 
; 381 P0379 4 Piz, ( (ACTUAL PARAMETER (. PARAM) + 4), : 
H 8 80 4 P2=. ACTUALPARAMETER(. PARAM) )») ; 
; 38 0381 4 CKSTATUS (SWFLOR(EFN= - JRMMBXEFN, MASK=.EFN. MASKS); ; 
: Re B¢ 4 STATUS = .CMDMBXIOSB<0,16> ! Get completion status ; 
; 385 4 IF NOT .STATUS THEN LEAVE HAIN BLOCK ‘itn STATUS; ; 
; 386 84 END; ; 
; 387 0385 ; 
; 388 b3e8 + ; 
: 89 8 4 i Write a final $ record to the subprocess. This will insure that : 
3 a itt t the previous command didn't leave the CLI waiting for more input. ; 
: 39 0390 : 
; P 0391 CKSTATUS($Q10( CHAN=.CMDMBXCHAN, ! Write to mailbox : 
H 94 P Bae EFN=. CMDOMBXE + 
3; 395 P 039 FUNC=10$_WRITELBLK, 3 
> 396 P 0394 10SB=CMDABX10SB, : 
: 397 P 0395 phevent BYTE (*$") ; 
: 398 0396 P2=%CHARCOUNT ('$')5); ; 
; 99 Baee CKSTATUS (SWFLOR(EFN=. TRHNBXEFN, MASK=, er _MASK)); $ 
; 400 398 STATUS = .CMDMBXIOSB<0,16>; Get ompletion status ; 
; 401 0399 IF NOT .STATUS THEN LEAVE MAIN pioce ‘itn ~ STATUS; bs 
; 402 0400 F 
; 403 0401 ! : 
3 ry: beos Write an End-of-File marker to command mailbox. : 
; 406 P 0404 ; CKSTATUS ($Q10(¢ CHAN=.CMDMBXCHAN, ! Write EOF ; 
; 407 P 0405 EFN=. “MDMBXE ‘ 
: 408 P 0406 FUNC=10$_WRITEOF : 
: 409 0407 10SB=CMDMBXIOSB) 5; ; 
; 410 0408 CKSTATUS (SWFLOR(EFN=. Nay resale Oo abke EFM _MASK)); : 
; 411 0409 STATUS = .CMDMBXIOSB< : 
; ale 9410 IF NOT .STATUS THEN LEAVE ”AAIN BLOCK WITH .STATUS; : 
: 414 bes 4 STATUS = SWAITFR(EFN=. TRMMBXEFN) ' Wait for subprocess . 
3 415 0413 4 ' to complete ; 
; 41 414 END; : 
: 41 415 ! 2 
; 418 0416 ! Cleanup everything that we used... 3 
3; 419 Reie } : 
: 420 418 SDASSGN(CHAN=. CMDMBXCHAN) ; ! Dpeesign the mailbox 3 
: $21 419 SDASSGN(CHAN=. TRMMBXCHAN) ; ' channels ; 
3 2 ; re ? os ,ouerio NEQ 0 : 
3 ? 3 ri § SDELPRC(PIDADR=SUBPID) ; eons 6 sure subprocess : 
3 ' iss : 
i; 4 § 424 LIBSFREE Sea ae : Deal Locate event flag ’ 
3 6 425 By rede TRMMBXEFN) ' number ; 
: 4628 4 § CANEXH (BESBLK= =EXITBLOCK) ; { Fancel exit handler 5 
; 429 04 IF .TRMMBXIOSB ! If termination message, ; 


LAS tse” nt 
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voce 500 LIBSEXECUTE_CLI = Execute CLI commands eet Fi 9: $2: $3 VMSLIB.SR RCIL LIBEXECLI. 3 231 
: 430 4 THEN 

; 431 4 ; STATUS = .TRMMSGBUFCACCSL_FINALSTS]; ! Get ag ge: status 

; ? ¢ ri : RETURN .STATUS ! Return the status 

; 4 0432 END; ! Of routine LIBSEXECUTE_CLI 


4 
; INFO#250 L1:0325 
; Referenced LOCAL symbol PRIB is probably not initialized 


-TITLE LIBSEXECUTE_CLI LIBSEXECUTE_CLI =- Execute CLI ¢ 
: ommands 
- IDENT \v04-000\ 


-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 


54 55 50 54 55 4F 24 53 59 53 00000 P.AAA: ASCII \SyS$ouTPUT\ ; ; 
3a 57 «55 21 43 4} e! SF OQOO0A P.AAB: ASCII \ UW: \ : ; 
49 47 GF 46C 3A 4D 45 54 53 59 53 ¢4 53 59 53 00012 P.AAC: .ASCII \SySSsvSiem: LOGINOUT\ : ; 
4 55 GF dé 90021 : : 

24 00025 P.AAD: .ASCII \$\ : ; 

.EXTRN LIBSGET_EF, LIBSFREE_EF : 

XTRN LIBS$_INSEF, LIB$_INVARG 3 

EXTRN SYSS$GETJPI, SYSSTRNLOG $ 

EXTRN SYS$CREMBX, SYSSGETCHN F 

EXTRN SYSS$FAO, SYSS$DCLEXH ; 

EXTRN SYSS$SETPRV, SYSSCREPRC : 

EXTRN SYS$QIO, SYSSWFLOR ; 

EXTRN SYSSWAITFR, SYSSDASSGN ; 

EXTRN SYSS$DELPRC, SYSSCANEXH ; 

OFFC 00000 ENTRY LIBSEXECUTE_ CLI, Save R2,R3,R4,R5,R6,R7,RB,-; 0144 : 

5B 000000006 00 9€ 90002 MOVAB SYSS$WFLOR, R11 : ; 

5a 000000006 00 9—E 00009 MOVAB LIBSFREE EF, R10 : ; 

59 000000006 00 9€ 00010 MOVAB LIBS$GET_EF, R9 : ; 

58 000000006 00 9€ 00017 MOVAB Sy$$0i0 Rb ; ; 

5E FE20 CE 9E OO1E MOVAB =480(SPS, SP : ; 

2 = AE. sOD4 000 CLRL §SUBPID + 0236 F 

14 AE 7C 00026 CLRO § CMDMBXEFN : ; 

04 AE B4 00029 CLRW CHDMBX CHAN : : 

8 AE B4 0002C CLRW MMBX CHAN : ; 

30 AE 03090004 8F DO OOOD2F MOVL peooe tere GETPRIB : 0247 ; 

4 AE 6E 9E 0 7 MOVAB PRIB, GETPRIB+4 : 0 4 F 

38 «AE O7C CLRQ  GETPRIB+8 : 024 ; 

7E 7¢ 09 CLRQ  -=(SP) > 0250 ; 

7E D4 0004 CLRL = =(SP) : ; 

3c AE OOF: (0004 PUSHAB GETPRIB : : 

7E 7C 0004 CLROQ (SP) : ; 

43 D4 0004 CLRL = = (SP) : ; 

000000006 9 Fg 49 CALLS "7 SYSSGETJPI : : 
BO AD 40 BF oh ; MOVZBL 3b4 OUTPUTBUF_DESC > 0254 ; 

B4 AD B8 AD F MOVAB OUTPUTBUF, BUTPUTBUF _DESC+4 > 0255 ; 

FB AD OA D MOVL ; 0, OUTPU : 0 36 F 

FC AD FF75 CF OE 061 MOVAB P.AAA, OUTPOT_DESC+4 : 0 5 ; 

—E 7¢ 7 1$: CLRQ  <=<(SP) > 0262 ; 


2 
LIBSEXECUTE_CLI LIBSEXECUTE_CLI = Execute CL] commands ibesé -1984 725: AX-11 Bliss-32 V4.0-74 Page 11 
rived sa LIBSEXECUTE-CLI = Execute CLI commands 12-808-138e 96:92:88 VMSLIB. REL IBEXECET BS2:1 ° (3) 
7E 04 69 Ls =($P) ; 
BO AD 9F B PUSHAB OUTPUTBUF_DESC ; 
F8 AD OF oF HAB OUTPUT_DESC : 
F8 AD OOF PUSHAB OUTPUT DESC F 
000000006 9 96 FB 74 CALLS Hs, SYSS$TRNLOG : 
p 7B MOVL RO, STATUS : 
FC OAD B8 AD F 7 MOVAB OUfPUTBUF, OUTPUT _DESC+4 + 0263 
1B B88 AD ? 5 CMP UTPUTBUF , #27 + 0264 
B9 AD 08 9 IsTB UTPUTBUF +1 + 0265 
FB AD er 0 f SUBL2 #4, OUTPUT_DESC : 0 68 
FC AD 4 ¢ ADDLe #4, OUTPUT DESC+4 : 0269 
9 E 096 2$: BLBC STATUS, 3$ + 0272 
00000629 =F ; D} 09 CPL STATUS, #1577 : 
00000629 = &F 32 D1 GOkg 3$: CMPL = STATUS, #1577 + 0273 
020? 13 $048 Bea 35 : 
7E 3 BOOAE 4$ CLRQ = = (SP) : 0278 
7E 7¢ 90089 CLRQ = =(SP) : 
7E 0100 = 8F 3¢ 008¢ MOVZ2WL #256, =(SP) ; 
18 PE Oe OO0RA PUSHAS CADREXCHAR 
cacee  | OF ES Ooors 5s: BEBE: Stars ese 
58 AE 84 BF 9A 00006 MOVZBL #132, CHARBUF_DESC + 0279 
5c AE 60 AE 3E 000¢8 MOVAB CHARBUF, CHARBUF _DESC+4 : 9280 
60 ME BL b0obS cae, StSPP ee 
7E 14 AE Ti 00007 MOVZWL CMDMBXCHAN, -(SP) : 
000000006 90 FB a00e¢ CALLS #5. SYSSGETCHN ; 
FF68 CD 40 BF BA SbOE MOVZBL #64, CMDMBXNAM_DESC > 0283 
FF6C = CD FF70 CD 9E OOOEB MOVAB  CMDMBXNAMBUF, CMDMBXNAM_DESC+4 > 0284 
50 AE 08 00 OO0F MOVL #8, FAOSTR_ DESC : 0285 
54 SOA FEEA CF 9E OOOF6 P.AAB, FAOSTR DESC+4 > 0286 
7E 6C AE 3C O00FC MOVZWL CHARBUS+12, -TSP) : 0292 
50 72 AF Hi 9190 MOVZWL CHARBUF+14. RO ; 
64 AESO 9F 00104 SHAB CHARBUFCROS ; 
FrO8 CD OF 0108 PUSHAB CMDMBXNAM_DESC F 
FF68 CD 9F 0010C PUSHAB CMDMBXNAM~DESC ; 
60 AE 9F 0119 PUSHAB FAOSTR DESC ; 
eee 50 8 OITA a ah 
E i 11D CLRO = : > 0296 
7E 7C OO11F CLRQ (SP) ; 
7E 04 001 } CLRL = = (SP) : 
1C AE oF PUSHAB TRMMBX CHAN ; 
000000006 90 7 FB 1 8 CALLS #7, SYSSCREMBX : 
0 : 12F BLBC STATUS, 9$ ; 
— ?C 001 2 CLRQ  =(SP) : 0298 
60 AE F 4 PUSHAB CHARBUF _DESC : 
7E 18 AE 3C 00159 MOVZ2WL TRMMBXCHAN, -(SP) : 


Page 12 

0-74 (3) 
“11 Bliss-32 V4, .B32;1 ; 
1Sste-19¢e 13:82:83 HUMSLle sedi ieexecci 
TE-CLI = Execute CLI commands se at ne a #5, SYSSGETCHN ; 0303 
BESTEL LHBRUTE cL > Brecute a Ae 
V04= , G6 00 : MOVAB TBLOCK+ ; 0307 : 
papeeees o000v ¢F i 140 OVE EXITSTATUS. EXITBLOCK+12 ; : 
0 AE 2 p 181 re EXITBLOCK : : 
y : ; 
Sek oe Ec ong | 
gf eB 163 > Bias BRYMSE : ; 
eee e §F ool6 PUSHL #1 
40 AE 1 -(SP) e e 
fe Oe bales CALLS SYSSSETPRV : ORs r 
By EB Rh os, Krak siArs, i DESC > 0325 : 
sipesommpeciee | 13 60 ooi74 ROVAB PAC, IMAGE. DES 
cc ME FETO rt ie ROVZWL CHARBUF#12, ~(SP) : 
-(SP) ; : 
AE 3¢ 0018 CLRL CS : : 
7 74 7E 4 biae puiute CHDMAXNAM_ DESC ; ; 
{8 (b SF o0189 CURL =($P) ; ; 
FF68 = CD D4 5180 : SHAB PRVMSK ; : 
5c AE. OOF O018F PUSHAB OUTPUT _DESC ; 
FB AD OF 00195 PUSHAS CRDMBARAM DESC ; 
F8 MAGE ; 3 
9F 00198 PUSHAB I ; 
meg aa Bee FIR ceon os] | 
5¢ 1A2 STATUS, | ; ; 
OD FB 00 . BLBC XEFN ‘ ; 
000000006 9° : 50 £9 00149 9$ PUSHAB #1 LABSGET EF ; 0332 : 
1 1AF STAT : ; 
01 FB 00 BLBC XEFN : : 
$3 ne EP Obie CALLS” #1. LIBSGET_EF : 0333 : 
14 AE 0188 eS tl EN. RO ; ; 
69 d £9 OO1eB 108: DIVLS a3e,  TRUOKEL 
f « ae bee Bute mae: 
edeekte a Tyee” a ie Cael AO, ‘RS & ; 
57 D1 EQL : : 
53 53 39 13 O18 Chtsy st tides T_EF : 0339 : 
10 AE PF B0108 BLBC) STATUS. 135 : 0340 é 
0 £9 Oo1De 118: BL AB TRMMBXERN ai ; 
69 0 § 8 CALS. At PIBSt REE - ; 034 ; 
o1 F 1DF MOVL 2, TRMMBXEFN, : ; 
$s 10 OF PP Boies Pay RS dees ; 
50 18 s 3 o ie pang } BS_INSEF, STATUS ; 0345 : 
? 6 iE ait a : 
52 000000006 oF i iF 128: HOV oes r5, R1 ; 0346 3 
5 ~ & EF i ASHE WO, #5, RZ. RO ; 

5 1 78 EXt2v #0, #3, R 
55 F HL, RO, wi, MASK 
51 51 5 : rs D Bist3 RI RO. EFN. 
50 30 4 1c 


RR: 
etI = Execute Li conmands aaSep=19ee 18:94:55 EmsLiersmeSiteenecet-692;1 sol 


LASSER CUTE CLI LIBSEXECUTE_ 
V04- LIBSEXECUTE_ Execute CLI commands 


1 
1 

7E 7C 0021 CLRQ 0s =(SP) : 0357 ; 
7E 7C 0021 CLRQ =(SP) ; : 
7E 54 BF 9A 0001 MOVZBL #84, <(SP) : ; 
OOFS CE F 0081 AB TRMMSGBUF ; : 
E 7C 0021D CLRQ = =(SP) : ; 
FF58 gb OF OOOTF PUSHAB TRMMBXIOSB : : 
1 pp PUSHL #33 : : 
7E 30 Ag 5¢ MOV ZL TRMMBXCHAN, =(SP) ; 
$8 ec FB B CALLS #12, SYS$QIO ; : 
7 : F138: BLBC STATUS, 18S : 
56 g 9A MOVZBL (AP), R6 ; 0362 : 
BS oe oss CUM! hea 7 : 
6c43 D3 00 : 148: STL CAB) CPARAM] ; 0364 : 
50 6c4$ 00 09 0 MOVL  (AP)CPARAM], RO : 0371 ; 
0100 «BF 60 B1 00241 CMPW 3s (RO), #256 : ; 
OA 1B 00 46 BLEQU 16$ : ; 
52 000000006 8F DO 0024 MOVL lL 1BS_INVARG, STATUS + 0373 ; 
00A3 3 O24F 15$: BRW 20$ : ; 
fe oe paseg 168: Ete whee — 
50 6c45 D6 00956 OVL § (AP)CPARAM], RO ; i 
50 ces 50 § 2¢ ROC” CAPSCPARAM. RO : 3 
04 Ad DD 09 60 PUSHL  4(RO) 2 : : 
7E 7C 0026 CLRQ. = =(SP) : : 
reo Sh Biss, uae pnmuaose : 7 
7E 2c AE 3¢ 00 68 MOV ZL CHDMBXCHAN, -(SP) ; 
68 O¢ FB O09 CALLS #12, SYS$QI0 : : 
fe 34 DD 00977 pee rate! ; 0381 
55 DD $0579 PUSHL RS ~ : ; 
68 02 FB 00278 CALLS #2, SYSSWFLOR : ; 
71 5 &9 O27E BLBC STATUS ; : 
52 FF60 Cd 3C 00 81 MOVZ2WL CMDMBX{OSB, STATUS ; 0382 : 
6C 52 €9 99 BLBC STATUS, 20$ > 038 3 
AB 53 36 FS 0289 17$: AOBL EG RG, PARAM, S ; 0364 ; 
7E FE OOSBF CLRQ = =(SP) ; ; 
FD68 oF BP § $3 PUSHAB £ ap : : 
FE 7¢ 0 9 CLRQ. ss =( SP) : ; 
FF60 cb 9F 00299 PUSHAB CMDMBXIOSB : ; 
2 pp 0 9D PUSHL : : 
7E 2c AE 5¢ Hi MOV ZL CMDMBXCHAN, -(SP) ; 
6 ¢ FB ° Ks CALLS #12, SYS$QIO : : 
: g fe opens 8 Bue, Srntntax' ; 0397 
DD O02AD PUSHL RS ~ : ; 
5 £8 00582 GtBt STATUS OR ; 
2 FF60 CD Bg MOVZWL CMDMBX{OSB, STATUS > 0398 : 


; Routine Size: 


LI 
Ll 


000000006 
000000006 
000000006 


000000006 


000000006 


Routine Base: 


Execute CLI commands 
Execute CL] commands 


38 


ONONMO S4=3 
OmMmMomMnNo oOnr— 


05 
56 


WwW MMMMMOOTCVVVIOOOOOOoWwWww 


™~m 
_ 
bad 


WAAAY 


WAWARIRINON | 2 


~m 
~ 
bad 


MOOOPFPOPFPOP OF NOP OPO PF UOUNMO NOVMNOYVIP VO SNM 


MMS MM FN — MrOM Mom — Mm MO VIVO ONL OOM NMOOMMmMmn 
OVIMMO"O"ONOVD $F MMS VOMUM NOOM "OWS OV 
S FOOCOW HWW BM LWDOVDOOWS ON OWMOVC OWING ®OOOO 


COOCQOOCOCOOOOOOCOCOCOCOCOOCOOOOOOOOOOOOOOOOOOOO 


CSOOOOCOOCOOCSOCOCSCCSCOOCOCOCOCOOSOOSOOOBOOOCOOOOOO 32O 


A an att th TS 


STATUS, 208 
-(SP) 


CMDMBXCHAN, -(SP) 
R7 


EFN_MASK 

R5 

#2, SYSSWFLOR 
STATUS, 19 
CMDMBX{OSB, STATUS 
STATU , 20$ 

#1, SYSSWAITFR 
RO, STATUS 
CMOMBXCHAN, =(SP) 
#1, SYSS$DASSGN 
TRMMBXCHAN, =(SP) 
#1, SYSSDASSGN 
SUBPID 

-(SP) 

SuBP1D 

#2, SYSSDELPRC 


CM FN 

#1, LIBSFREE_EF 
TR FN 

#1, LIBSFREE_EF 
E 0 


STATUS, R 


Pete Se Ge Se Se Se Ge Se Se Ge Se Se Be Se Se Be Se Se Se Be Ge Fe Ge Se Se Ge Ge Se Fe Ge Se Se Se Ge Ge Se Se Se 


LAPSE AR CUTE CLI 


; Routine Size: 


saa 


5 he eh eh ee eke ek ae 
PAA AAAAAI 
SOOONOUS WMO 


461 


<= 


mn 
—ANIPIR) ees TET 


DUP BB BPP PEPIN oo 


NOUS WM" OOODNOUE WN" OVOONOUS Mme 


on 


T 


INPUTS: 
EXITSTATUS 
SUBP ID 

OUTPUTS: 


N 
IF .SUBPID NEQ 0 
THEN 


E_CLI = Execute CLI commands 
TE_CLI = Execute CL 


OUTINE EXIT_HANDLER(EXITSTATUS,SUBPID) : NOVALUE = 
FUNCTIONAL DESCRIPTION: 
EXIT_HANDLER is called a 


current process 
the subprocess. 


commands 


Subprocess deleted. 


SDELPRC (PIDADR=SUBPID) 


000000006 00 


20 bytes, Routine Base: 


0458 


1 


0 

08 AC 

C 

E 

08 Ac 

02 
-LIBSCODE + 


H 2 
1erSep-1986 98:94:53 Emsciecsnedibexeer i682; 1 sna 


Ss an image exit handler when the 


s rundown. Its only function is to delete 


- Address of exit status. 
- Subprocess ID. 


! If process created 
! Delete the subprocess 


000 00000 EXIT_HANDLER: 
«WORD Save nothing 3; 0434 
rf R308 TSTL SUBP ID 3 0454) 
13 0000 BEQL : 
D4 00007 CLRL -(SP) 3; 0456 
9F 00009 PUSHAB SUBPID 3 
FB oot s CALLS #2, SYSSDELPRC : 
04 00015 1$: RET ; 0457 
0366 


Sete Se Se Ge Se Se 


2 
LIBSEXECUTE_CLI LIBSEXECUTE_CLI = Execute CLI commands 1h-sop-1 4 5: AX-11 Bliss-32 V4.0-7 Page 16 
voee 500 LIBSEX XECUTER CL “CLI = Execute CLI commands 14- Sep- 198 6: §2 ‘33 VMSLIB.SRC LIBEXE CLI. 8 2;1 . (35 
; 463 459 1 END ! End of module LIBSEXECUTE_CLI 
: 66s B46 1 : ° 
; 465 461 OQ ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: _LIBSCODE 890 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
H Library Statistics 
Di Se ee een et eT Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 26 0 581 00:01.0 


Information: 1 
Warnings: 
Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:LIBEXECLI/08J=0BJ$:LIBEXECLI MSRC$:LIBEXECLI/UPDATE=(ENHS$:LIBEXECLI 


pize 852 code + 38 data bytes 
ime: pp: t3°8 

Teased Time: yige-® 

Lines/CPU Min: . 2ee8e 


AL EQUIPMENT CORPORATION 
DENTIAL- AND PROPRIETARY 


GIT 
NFI 


I 
F 


DI 
CO 


Ndi, AH-BT1i3A-SE 
ViwW VAX/VMS V4.0 


